home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  792 b   |  45 lines
  1. 10 ;BAM 2
  2. 20 JSR INIT;INITIALIZE DISK
  3. 30 ;
  4. 40 JSR LIST;OPEN SERIAL BUS
  5. 50 LDY #$00;SET UP TO READ BAM MAP
  6. 60 B LDA MW,Y;PUT #$12 AT $06 & #$00 AT $07 1541 ZERO PAGE
  7. 70 JSR OUT;SEND BYTE OVER SERIAL BUS
  8. 80 INY
  9. 90 CPY #$08
  10. 100 BNE B
  11. 110 JSR UNLIS;CLOSE DOWN SERIAL BUS
  12. 120 ;
  13. 130 JSR LIST
  14. 140 LDY #$00;PUT #$80 READ AT $00 1541 ZERO PAGE
  15. 150 B1 LDA MW1,Y
  16. 160 JSR OUT
  17. 170 INY
  18. 180 CPY #$07
  19. 190 BNE B1
  20. 200 JSR UNLIS
  21. 210 ;
  22. 220 ;1541 ROM REPLACES COMMAND AT $00
  23. 230 ;WITH ERROR CODE #$00 = OK
  24. 240 ;
  25. 250 JSR CHKERR;WAIT FOR ERROR CODE
  26. 260 ;
  27. 270 JSR LIST
  28. 280 LDY #$00
  29. 290 B2 LDA MR1,Y;READ BAM MAP INTO 64
  30. 300 JSR OUT
  31. 310 INY
  32. 320 CPY #$07
  33. 330 BNE B2
  34. 340 JSR UNLIS
  35. 350 ;
  36. 360 JSR TALK;RECEIVE BYTES OVER SERIAL BUS
  37. 370 LDY #$00
  38. 380 B3 JSR IN;GET NEXT BYTE
  39. 390 STA BAMBUF,Y
  40. 400 INY
  41. 410 CPY #$8C
  42. 420 BNE B3
  43. 430 JSR UNTLK
  44. 440 .FILE BAM 3
  45.